home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Big Mouth 13
/
Big_Mouth_The_13_1996_-_Side_C.d64
/
life
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
61 lines
0 rem ***** game of life ****
5 rem ***** (c) s.j.walters 1991 ****
7 rem ***** (c)light disk64 1992 ****
8 rem
9 rem ***** main ******
10 poke 650,128
11 fori=49152to49445 :reada:pokei,a:next
15 data169,0,133,249,133,250
20 data169,128,133,251,133,253,169,3,133,252,169,199,133,254,162,0
25 data165,249,201,0,240,15,165,250,201,0,240,9
30 data160,87,177,251,201,32,240,1,232
35 data165,250,201,0,240,9
40 data160,88,177,251,201,32,240,1,232
45 data165,249,201,39,240,15,165,250,201,0,240,9
50 data160,89,177,251,201,32,240,1,232
55 data165,249,201,0,240,9
60 data160,127,177,251,201,32,240,1,232
65 data165,249,201,39,240,9
70 data160,129,177,251,201,32,240,1,232
75 data165,249,201,0,240,15,165,250,201,24,240,9
80 data160,167,177,251,201,32,240,1,232
85 data165,250,201,24,240,9
90 data160,168,177,251,201,32,240,1,232
95 data165,249,201,39,240,15,165,250,201,24,240,9
100 data160,169,177,251,201,32,240,1,232
105 data160,128,138,145,253,230,249,165,249,201,40,208,6 ,230,250,169,0,133,249
110 data230,251,230,253,208,4 ,230,252,230,254,165,252,201
120 data7,208,9 ,165,251,201,104,208,3 ,24,144,3 ,76,20 ,192
130 data169,200,133,254,169,0,133,253,169,4,133,252,169,0,133,251,160,0
140 data177,253,201,2,240,11,162,81,201,3,240,2 ,162,32,138,145,251,200,208,4
150 data230,252,230,254,165,252,201,7,208,226,192,232,208,222
155 data169,0,133,198
157 data165,203,201,4,208,3,32,92,193
160 data165,203,201,60,240,250
170 data 165,203,201,63,240,3,76,0,192,96
190 rem ***** start ******
200 for i=49450to49473 :reada:pokei,a:next
205 data32,92,193,32,0,192,162,0,160,0,24,32,240,255
210 data32,207,255,201,13,208,249
215 data76,45,193
300 rem ****** random *******
310 fori=49500to49551:reada:pokei,a:next
315 data169,5,32,210,255,169,147,32,210,255,169,0,141,33,208
320 data169,255,141,15,212,169,128,141,18,212
330 data162,0,169,32,172,27,212,16,2,169,81
340 data157,0,4,157,0,5,157,0,6,157,0,7,232,208,232,96
499 :
500 rem ** instructions ** typed by white demon **
505 print"[147]"tab(17)" life "
510 printtab(14)"instructions"
515 print"f1 - generate random population"
520 print"run/stop - make your own population"
525 print"when making your own population, use any"
530 print"[145]letter, number or symbol to put down"
535 print"'people' on the screen. use space to"
540 print"remove people. shift & clr/home clears the screen"
545 print"when you are satisfied, press return to begin life "
550 print""tab(12)" press spacebar "
555 get a$:if a$<>chr$(32) then 555
1000 sys49450